home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1994 November / macformat-018.iso / Utility Spectacular / Developer / PTR-TCL v2.1 / Support / New TCL Source / CObject.cp next >
Encoding:
Text File  |  1994-03-01  |  847 b   |  57 lines  |  [TEXT/MMCC]
  1. /*
  2.  * CObject.cp
  3.  * ©1994 Jon Wätte
  4.  */
  5.  
  6. #pragma once
  7.  
  8. #include "CObject.h"
  9.  
  10. CObject *
  11. CObject :: Copy ( void ) {
  12.  
  13.     return new_by_name ( _clsName ) ; //
  14. }
  15.  
  16.  
  17. void
  18. CObject :: Dispose ( void ) {
  19.     delete this ;
  20. }
  21.  
  22.  
  23. void
  24. CObject :: SubclassResponsibility ( void ) {
  25.     DebugStr ( ( unsigned char * ) "\pSubclassResponsibility!" ) ;
  26.     FailOSErr ( -50 ) ;
  27. }
  28.  
  29.  
  30. Boolean
  31. CObject :: Lock ( Boolean flag ) {
  32.  
  33.     return true ; // always locked - pointer!
  34. }
  35.  
  36.  
  37. extern Boolean _member ( char * cls , char * of ) ;
  38.  
  39. Boolean
  40. CObject :: MemberOf ( char * of ) {
  41.     return _member ( _clsName , of ) ;
  42. }
  43.  
  44.  
  45. void *
  46. CObject :: operator new ( size_t bytes ) {
  47.  
  48. register char * ptr = ( char * ) ::operator new ( bytes ) ;
  49. register char * end = ptr + bytes ;
  50.  
  51.     if ( ! ptr ) {
  52.         FailOSErr ( -108 ) ;
  53.     }
  54.     while ( ptr < end ) * ( ptr ++ ) = 0 ;
  55.     return ( void * ) ( end - bytes ) ;
  56. }
  57.